concrete LexiconSyllFre of LexiconSyll =  LexiconFre **  open Prelude, StructuralFre, IrregFre, ParadigmsFre in { 
--# -path=.:prelude:english:common
flags coding=utf8 ;

lin
  broke_A = regA "fauché" ; -- "fauchée" ; -- hur gör man
  fourlegged_A = regA "quadrupède" ;
  furious_A = regA "furieuse" ;
  indispensable_A = regA "indispensable" ;
  successful_A = regA "prospère" ;
  interesting_A = regA "intéressant" ;


  italian_A = mkA "italien" ;
  portuguese_A = mkA "portugais" ;


  irishman_N = mkN "irlandais"  ;
  italian_N = mkN "italien" ;
  scandinavian_N = mkN "scandinave" ;
 
  unicorn_N = mkN "licorn";

-- names
  alan_PN = mkPN "alain" masculine;
  anderson_PN = mkPN "anderson" masculine;
  carl_PN = mkPN "carl" masculine;
  dumbo_PN = mkPN "dumbo" masculine;
  frank_PN = mkPN "franc" masculine;
  helen_PN = mkPN "hèlene" feminine;
  henrik_PN = mkPN "henri" masculine;
  jones_PN = mkPN "jones" masculine;
  mickey_PN = mkPN "michele" masculine;
  nobel_PN = mkPN "nobel" masculine;
  pavarotti_PN = mkPN "pavarotti" masculine;
  peter_PN = mkPN "pierre" masculine;
  smith_PN = mkPN "smith" masculine;
  katmandu_PN = mkPN "katmandou" feminine;
  socrates_PN = mkPN "socrate" masculine;

  berlin_PN = mkPN "berlin" feminine;
  birmingham_PN = mkPN "birmingham" feminine;
  florence_PN = mkPN "florence" feminine;
  portugal_PN = mkPN "portugal" masculine;
  scandinavia_PN = mkPN "scandinavie" feminine;

  --socrates_PN = mkPN "socrates" ;
  --unicorn_N = mkN "unicorn" ;
}
